home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat120 / mpls_patch_v1.4_demo / install mpls patch demo < prev    next >
Text File  |  1996-04-15  |  13KB  |  560 lines
  1. ;
  2. ;  $VER: MPLS Patch DEMO Install v1.4 (10/04/96)
  3. ;
  4.  
  5.  (complete 0)
  6.  
  7.  (if (< (/ (getversion) 65536) 39)
  8.   (abort "Désolé, ce programme nécessite l'AmigaDOS 3.0 ou supérieur !")
  9.  )
  10.  
  11. ;---------------------------------------------------------------------------;
  12.  
  13.  (message
  14.   (cat "\n"
  15.        "MPLS Patch v1.4 (10/04/96) SHAREWARE - VERSION DEMO"
  16.        "\n\n"
  17.        "- The (M)agic (P)icture (L)oader (S)ystem -"
  18.        "\n"
  19.        "Copyright © 1995-96 Lejardinier Olivier"
  20.        "\n"
  21.        "All rights reserved."
  22.        "\n\n"
  23.        "Ce patch permet à **N'IMPORTE** quelle application de "
  24.        "charger tous les formats  d'image  (JPEG, GIF, Targa, "
  25.        "etc...) si votre système en possède le datatype.      "
  26.        "Ceci est  la version  DEMO, limitée  à  l'utilisation "
  27.        "avec les programmes (True)Brilliance et DPaint.       "
  28.        "\n"
  29.        "Pour plus de détails, lisez la documentation."
  30.   )
  31.  )
  32.  
  33. ;---------------------------------------------------------------------------;
  34.  
  35.  (set patch-version
  36.   (askchoice
  37.    (prompt
  38.     (cat "\n"
  39.          "Quelle version de MPLS Patch DEMO voulez-vous utiliser ?"
  40.          "\n"
  41.     )
  42.    )
  43.    (help
  44.     (cat "\n"
  45.          "Vous devez sélectionner l'application avec laquelle "
  46.          "MPLS Patch DEMO sera utilisé."
  47.          "\n\n"
  48.          "IMPORTANT : La version que  vous  sélectionnerez ne "
  49.          "sera utilisable  qu'AVEC  l'application en question,"
  50.          "donc si vous désirez une version complète :"
  51.          "\n\n"
  52.          "               !!! ENREGISTREZ-VOUS !!!"
  53.          "\n\n"
  54.          "Voir la section  'Shareware'  de  la  documentation "
  55.          "pour plus de détails."
  56.          "\n\n"
  57.          @askchoice-help
  58.     )
  59.    )
  60.    (choices "Brilliance"
  61.             "TrueBrilliance"
  62.             "DPaint"
  63.             "Toutes les versions"
  64.    )
  65.    (default 3)
  66.   )
  67.  )
  68.  
  69. ;---------------------------------------------------------------------------;
  70.  
  71.  (if (<> patch-version 3)
  72.   (if (not (exists "SYS:WBStartup/MPLS_Patch"))
  73.    (
  74.     (message
  75.      (cat "\n"
  76.           "Le  programme  d'installation  va  maintenant  vous "
  77.           "demander  si  vous  voulez que MPLS Patch DEMO soit "
  78.           "installé en permanence dans le système.             "
  79.           "\n\n"
  80.           "CEPENDANT, n'oublier  pas que cette version est une "
  81.           "démonstration,  et  qu'elle  se DESACTIVERA au bout "
  82.           "d'un certain temps, donc l'installation  permanente "
  83.           "n'est pas forcément le meilleur choix...            "
  84.      )
  85.     )
  86.  
  87.     (if
  88.      (askbool
  89.       (prompt
  90.        (cat "\n"
  91.             "Voulez-vous que  MPLS Patch DEMO  soit  installé à "
  92.             "chaque démarrage du système ?"
  93.             "\n"
  94.        )
  95.       )
  96.       (help
  97.        (cat "\n"
  98.             "Si vous répondez 'Oui', le programme  principal  de "
  99.             "MPLS Patch DEMO  sera   copié  dans  le  répertoire "
  100.             "'WBStartup' de votre partition Workbench afin qu'il "
  101.             "puisse être installé dans le  système à chaque fois "
  102.             "que vous redémarrerez votre Amiga.                  "
  103.             "\n\n"
  104.             "Si  vous  répondez  'Non',   MPLS Patch DEMO   sera "
  105.             "installé avec son propre répertoire à l'emplacement "
  106.             "que vous choisirez."
  107.             "\n\n"
  108.             "Dans les deux cas, la  documentation et les données "
  109.             "annexes  seront   installées   dans  le  répertoire "
  110.             "'MPLS_Patch_DEMO'."
  111.        )
  112.       )
  113.       (choices "Oui"
  114.                "Non"
  115.       )
  116.      )
  117.      (set patch-dest "SYS:WBStartup")
  118.  
  119.    ;(else)
  120.  
  121.      (set patch-dest "SYS:Tools")
  122.     )
  123.    )
  124.  
  125.  ;(else)
  126.  
  127.    (
  128.     (message
  129.      (cat "\n"
  130.           "Le programme d'installation  a  détecté la présence "
  131.           "d'une version  ENREGISTREE  de  MPLS Patch  dans le "
  132.           "répertoire 'WBStartup' de votre partition Workbench."
  133.           "\n\n"
  134.           "Si  c'est   vraiment  le  cas,  je  vous  conseille "
  135.           "fortement  de   ne   pas  installer  le   programme "
  136.           "principal de MPLS Patch DEMO dans ce répertoire.    "
  137.      )
  138.     )
  139.  
  140.     (set patch-dest "SYS:Tools")
  141.  
  142.    )
  143.   )
  144.  
  145. ;(else)
  146.  
  147.   (set patch-dest "SYS:Tools")
  148.  
  149.  )
  150.  
  151. ;---------------------------------------------------------------------------;
  152.  
  153.  (if (<> (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  154.   (
  155.    (set patch-dest
  156.     (askdir
  157.      (prompt
  158.       (cat "\n"
  159.            "Où voulez-vous installer 'MPLS_Patch_DEMO' ?"
  160.            "\n"
  161.            "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  162.            "\n"
  163.       )
  164.      )
  165.      (help
  166.       (cat "\n"
  167.            "Vous  devez   sélectionner   une  partition  ou  un "
  168.            "répertoire de votre disque  dur  dans  lequel  sera "
  169.            "installé le répertoire 'MPLS_Patch_DEMO'."
  170.            "\n\n"
  171.            "Si vous voulez que  MPLS Patch DEMO soit  actif  en "
  172.            "permanence,  vous   devrez   déplacer   l'icône  du "
  173.            "programme dans le répertoire 'WBStartup'  de  votre "
  174.            "partition Workbench."
  175.            "\n\n"
  176.            @askdir-help
  177.       )
  178.      )
  179.      (default patch-dest)
  180.     )
  181.    )
  182.  
  183.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  184.     (abort
  185.      (cat "\n"
  186.           "Vous ne pouvez pas installer le répertoire "
  187.           "'MPLS_Patch_DEMO' dans le répertoire 'SYS:WBStartup' !!!"
  188.      )
  189.     )
  190.  
  191.   ;(else)
  192.  
  193.     (set patch-dest (tackon patch-dest "MPLS_Patch_DEMO"))
  194.  
  195.    )
  196.   )
  197.  )
  198.  
  199. ;---------------------------------------------------------------------------;
  200.  
  201.  (complete 10)
  202.  
  203.  (copyfiles
  204.   (source "")
  205.   (set patch-prog "")
  206.  
  207.   (if (<> patch-version 3)
  208.    (if (= patch-version 0)
  209.     (
  210.      (choices "MPLS_Patch.Brilliance")
  211.      (set patch-prog "MPLS_Patch.Brilliance")
  212.     )
  213.  
  214.   ;(else)
  215.  
  216.     (if (= patch-version 1)
  217.      (
  218.       (choices "MPLS_Patch.TrueBrilliance")
  219.       (set patch-prog "MPLS_Patch.TrueBrilliance")
  220.      )
  221.  
  222.    ;(else)
  223.  
  224.      (
  225.       (choices "MPLS_Patch.DPaint")
  226.       (set patch-prog "MPLS_Patch.DPaint")
  227.      )
  228.  
  229.     )
  230.    )
  231.  
  232.  ;(else)
  233.  
  234.    (choices "MPLS_Patch.Brilliance" "MPLS_Patch.TrueBrilliance" "MPLS_Patch.DPaint")
  235.   )
  236.  
  237.   (dest patch-dest)
  238.   (files)
  239.   (infos)
  240.   (noposition)
  241.   (optional "oknodelete" "force")
  242.  )
  243.  
  244.  (copyfiles
  245.   (source "MPLS_Patch_DEMO.Env")
  246.   (dest "S:")
  247.   (files)
  248.   (optional "oknodelete" "force")
  249.  )
  250.  
  251. ;---------------------------------------------------------------------------;
  252.  
  253.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  254.   (tooltype
  255.    (dest (tackon patch-dest patch-prog))
  256.    (settooltype "QUIET" "")
  257.   )
  258.  
  259. ;(else)
  260.  
  261.   (
  262.    (message
  263.     (cat "\n"
  264.          "Pour  désactiver  la  requête  'Patch installed !!' "
  265.          "qui s'affichera lorsque  vous  exécuterez le patch, "
  266.          "vous devrez retirer les () autour du tooltype QUIET "
  267.          "dans l'icône du programme.                          "
  268.     )
  269.    )
  270.  
  271.    (tooltype
  272.     (dest (tackon patch-dest "MPLS_Patch.Brilliance"))
  273.     (settooltype "(QUIET)" "")
  274.    )
  275.  
  276.    (tooltype
  277.     (dest (tackon patch-dest "MPLS_Patch.TrueBrilliance"))
  278.     (settooltype "(QUIET)" "")
  279.    )
  280.  
  281.    (tooltype
  282.     (dest (tackon patch-dest "MPLS_Patch.DPaint"))
  283.     (settooltype "(QUIET)" "")
  284.    )
  285.  
  286.   )
  287.  )
  288.  
  289. ;---------------------------------------------------------------------------;
  290.  
  291.  (complete 35)
  292.  
  293.  (set doc-dest
  294.   (askdir
  295.    (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  296.     (
  297.      (set doc-dest "SYS:Tools")
  298.      (prompt
  299.       (cat "\n"
  300.            "Où voulez-vous installer la documentation ?"
  301.            "\n"
  302.            "(Un répertoire 'MPLS_Patch_DEMO' sera créé)"
  303.            "\n"
  304.       )
  305.      )
  306.     )
  307.  
  308.   ;(else)
  309.  
  310.     (
  311.      (set doc-dest patch-dest)
  312.      (prompt
  313.       (cat "\n"
  314.            "Où voulez-vous installer la documentation ?"
  315.            "\n"
  316.       )
  317.      )
  318.     )
  319.    )
  320.  
  321.    (help
  322.     (cat "\n"
  323.          "Vous  devez   sélectionner  une   partition  ou  un "
  324.          "répertoire  de  votre  disque  dur dans lequel sera "
  325.          "copiée la documentation."
  326.          "\n\n"
  327.          "Note :"
  328.          "\n"
  329.          "Il est préférable de placer les documentations dans "
  330.          "le répertoire 'MPLS_Patch_DEMO'."
  331.          "\n\n"
  332.          @askdir-help
  333.     )
  334.    )
  335.    (default doc-dest)
  336.   )
  337.  )
  338.  
  339.  (if (= (expandpath doc-dest) (expandpath "SYS:WBStartup"))
  340.   (abort
  341.    (cat "\n"
  342.         "Vous ne pouvez pas installer la documentation de "
  343.         "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  344.    )
  345.   )
  346.  )
  347.  
  348. ;---------------------------------------------------------------------------;
  349.  
  350.  (if (= (expandpath patch-dest) (expandpath "SYS:WBStartup"))
  351.   (set doc-dest (tackon doc-dest "MPLS_Patch_DEMO"))
  352.  )
  353.  
  354.  (complete 45)
  355.  
  356.  (copyfiles
  357.   (source "MPLS_Patch_DEMO.Guide")
  358.   (dest doc-dest)
  359.   (files)
  360.   (infos)
  361.   (noposition)
  362.   (optional "oknodelete" "force")
  363.  )
  364.  
  365.  (complete 55)
  366.  
  367.  (copyfiles
  368.   (source "")
  369.   (choices "Description" "Shareware" "Registration" "Bugs_Report" "Print.info")
  370.   (dest doc-dest)
  371.   (files)
  372.   (infos)
  373.   (noposition)
  374.   (optional "oknodelete" "force")
  375.  )
  376.  
  377. ;---------------------------------------------------------------------------;
  378.  
  379.  (complete 70)
  380.  
  381.  (set choice
  382.   (askchoice
  383.    (prompt
  384.     (cat "\n"
  385.          "Dans quelle langue voulez-vous utiliser"
  386.          "\n"
  387.          "MPLS Patch DEMO ?"
  388.          "\n"
  389.     )
  390.    )
  391.    (help
  392.     (cat "\n"
  393.          "Vous devez sélectionner  la  langue  dans  laquelle "
  394.          "MPLS Patch DEMO sera utilisé."
  395.          "\n\n"
  396.          "Le catalogue français ne sera installé QUE si  vous "
  397.          "sélectionnez 'Française'."
  398.          "\n\n"
  399.          "Note :"
  400.          "\n"
  401.          "Votre   choix  doit   normalement  correspondre  au "
  402.          "langage  utilisé   pour  votre  Workbench  (voir le "
  403.          "programme de préférences 'SYS:Prefs/Locale')."
  404.          "\n\n"
  405.          @askchoice-help
  406.     )
  407.    )
  408.    (choices "Française"
  409.             "Anglaise"
  410.    )
  411.    (default 0)
  412.   )
  413.  )
  414.  
  415. ;---------------------------------------------------------------------------;
  416.  
  417.  (complete 75)
  418.  
  419.  (if (= choice 0)
  420.   (
  421.    (if (not (exists "SYS:Locale"))
  422.     (makedir "SYS:Locale")
  423.    )
  424.    
  425.    (if (not (exists "SYS:Locale/Catalogs"))
  426.     (makedir "SYS:Locale/Catalogs")
  427.    )
  428.    
  429.    (copyfiles
  430.     (source "Catalogs/Français/mplspatch_demo.catalog")
  431.     (dest "SYS:Locale/Catalogs/Français")
  432.     (files)
  433.     (optional "oknodelete" "force")
  434.    )
  435.   )
  436.  
  437. ;(else)
  438.  
  439.   (run "C:Delete >NIL: FILE SYS:Locale/Catalogs/Français/mplspatch_demo.catalog FORCE QUIET")
  440.  
  441.  )
  442.  
  443.  (copyfiles
  444.   (source "Catalogs")
  445.   (choices "Make_Cat_Demo" "mplspatch_demo.cd" "Français/français_demo.ct")
  446.   (dest (tackon doc-dest "MPLS_Patch_Locale"))
  447.   (files)
  448.   (infos)
  449.   (noposition)
  450.   (optional "oknodelete" "force")
  451.  )
  452.  
  453. ;---------------------------------------------------------------------------;
  454.  
  455.  (if
  456.   (askbool
  457.    (prompt
  458.     (cat "\n"
  459.          "Voulez-vous installer les images d'exemple ?"
  460.          "\n"
  461.     )
  462.    )
  463.    (help
  464.     (cat "\n"
  465.          "Ces images, dans divers formats,  vous  permettront "
  466.          "de   tester  MPLS Patch DEMO  avec  les  différents "
  467.          "datatypes déjà installés dans votre système."
  468.     )
  469.    )
  470.    (choices "Oui"
  471.             "Non"
  472.    )
  473.   )
  474.   (
  475.    (set pics-dest doc-dest)
  476.  
  477.    (set pics-dest
  478.     (askdir
  479.      (prompt
  480.       (cat "\n"
  481.            "Où voulez-vous installer ces images ?"
  482.            "\n"
  483.            "(Un répertoire 'MPLS_Patch_Examples' sera créé)"
  484.            "\n"
  485.       )
  486.      )
  487.      (help
  488.       (cat "\n"
  489.            "Vous  devez   sélectionner  une   partition  ou  un "
  490.            "répertoire  de  votre  disque  dur dans lequel sera "
  491.            "installé   le   répertoire   'MPLS_Patch_Examples'  "
  492.            "contenant les images d'exemple qui vous permettront "
  493.            "de tester MPLS Patch DEMO."
  494.            "\n\n"
  495.            @askdir-help
  496.       )
  497.      )
  498.      (default pics-dest)
  499.     )
  500.    )
  501.  
  502.    (if (= (expandpath pics-dest) (expandpath "SYS:WBStartup"))
  503.     (abort
  504.      (cat "\n"
  505.           "Vous ne pouvez pas installer les images d'exemple de "
  506.           "MPLS Patch DEMO  dans le répertoire 'SYS:WBStartup' !!!"
  507.      )
  508.     )
  509.    )
  510.  
  511.    (working "Désarchivage des images d'exemple...")
  512.  
  513.    (run "C/LHEX -fwT: x Pics.LHA")
  514.  
  515.    (copyfiles
  516.     (prompt "Sélectionner les images à installer")
  517.     (help @copyfiles-help)
  518.     (source "T:")
  519.     (dest (tackon pics-dest "MPLS_Patch_Examples"))
  520.     (pattern "Pic#?")
  521.     (confirm)
  522.     (files)
  523.     (infos)
  524.     (optional "oknodelete" "force")
  525.    )
  526.  
  527.    (run "C:Delete >NIL: FILE T:Pic#? FORCE QUIET")
  528.  
  529.   )
  530.  )
  531.  
  532. ;---------------------------------------------------------------------------;
  533.  
  534.  (complete 95)
  535.  
  536.  (message
  537.   (cat "\n"
  538.        "Pour  démarrer   MPLS Patch DEMO   tout   de  suite, "
  539.        "double-cliquez  sur  son  icône,  que vous trouverez "
  540.        "dans le répertoire :                                 "
  541.        "\n\n"
  542.        "'"(expandpath patch-dest)"'"
  543.        "\n\n"
  544.        "Pour  que  MPLS Patch DEMO  fonctionne  normalement, "
  545.        "plusieurs  'datatypes'  pouvant  gérer  des  formats "
  546.        "d'images doivent être installés dans votre  système. "
  547.        "\n\n"
  548.        "Vous pouvez aussi vous  en  procurer auprès de votre "
  549.        "distributeur de programmes du domaine publique.      "
  550.   )
  551.  )
  552.  
  553. ;---------------------------------------------------------------------------;
  554.  
  555.  (complete 100)
  556.  
  557.  (set @default-dest doc-dest)
  558.  
  559.  (exit)
  560.